home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / COMM / INTERNET / MAIL / TRANSPORTS / uucp / sendnews < prev    next >
Text File  |  1994-12-11  |  669b  |  16 lines
  1. | the alias$temp hack may look quite strange - but at least it works
  2. if "%0"<>"-f" then error strange sendnews call format "sendnews %*0"
  3. wimpslot -min 500k
  4. set alias$temp uux -r - <UUCP_newsserver>!rnews < %1
  5. remove <Wimp$ScrapDir>.SNoutnews
  6. perl -e "print STDOUT \"#! cunbatch\n\";" > <Wimp$ScrapDir>.SNoutnews
  7. set alias$temp1 compress < %1 >> <Wimp$ScrapDir>.SNoutnews
  8. temp1
  9. if <Sys$ReturnCode>=0 then set alias$temp uux -r - <UUCP_newsserver>!rnews < <Wimp$ScrapDir>.SNoutnews
  10. unset alias$temp1
  11. temp
  12. unset alias$temp
  13. remove <Wimp$ScrapDir>.SNoutnews
  14. set NewsBase$Returncode <Sys$Returncode>
  15. if <NewsBase$Returncode><>0 then set NewsBase$ReturnInfo send news failed
  16.